home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1993 November / JCSM Shareware Collection - 1993-11.iso / cl720 / qbnws32j.lzh / TOOLS.BI < prev    next >
Text File  |  1992-03-21  |  705b  |  26 lines
  1. '---- Declare Type used for passing arguments to the Box subroutine
  2. TYPE Frame
  3.     boxType AS INTEGER
  4.     fore    AS INTEGER
  5.     back    AS INTEGER
  6.     filClr  AS INTEGER
  7.     lftCol  AS INTEGER
  8.     rgtCol  AS INTEGER
  9.     tRow    AS INTEGER
  10.     bRow    AS INTEGER
  11. END TYPE
  12.  
  13. '---- Declarations of SUBs and FUNCTIONs
  14. DECLARE SUB Box (Frame AS ANY)
  15. DECLARE FUNCTION GetMonitorSeg% ()
  16. DECLARE FUNCTION InsertState% ()
  17. DECLARE FUNCTION KeyPressed% ()
  18. DECLARE FUNCTION Lower% (Value%)
  19. DECLARE SUB RingSound ()
  20. DECLARE SUB TurnCapsOn (ToggleOn%)
  21. DECLARE SUB TurnInsertOn (ToggleOn%)
  22. DECLARE SUB TurnNumOn (ToggleOn%)
  23. DECLARE SUB TurnScrollOn (ToggleOn%)
  24. DECLARE FUNCTION Upper% (Value%)
  25.  
  26.